home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / SYSTEM RELIABILITY.bas < prev    next >
BASIC Source File  |  2012-02-16  |  506b  |  23 lines
  1. 10  PRINT "SYSTEM RELIABILITY"
  2. 20  PRINT 
  3. 30  PRINT "(TO END PROGRAM ENTER 0)"
  4. 40  PRINT "OPERATING TIME IN HOURS";
  5. 50  INPUT T
  6. 60  IF T = 0  THEN 230
  7. 70  PRINT "NUMBER OF COMPONENTS";
  8. 80  INPUT N
  9. 90 Z = 0
  10. 100  FOR I = 1 TO N
  11. 110  PRINT "COMPONENT ";I
  12. 120  PRINT "  AVERAGE WEAROUT TIME";
  13. 130  INPUT W
  14. 140  PRINT "  AVERAGE FAILURE RATE";
  15. 150  INPUT F
  16. 160 Z = Z +1/W +F
  17. 170  NEXT I
  18. 180  PRINT 
  19. 190 Z =  EXP( -Z *T)
  20. 200  PRINT "SYSTEM RELIABILITY = ";Z
  21. 210  PRINT 
  22. 220  GOTO 40
  23. 230  PRINT "<CTRL-D>RUNHELLO"